home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 29 / 029.d81 / alfredo boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  480b  |  17 lines
  1. 1 ifx=0thenprint"[147]booting alfredo...":poke53281,0
  2. 5 ifx=0thenx=1:load"unpacker",8,1
  3. 6 ifx=1thenx=2:load"alfredo.title.shp",8,1
  4. 7 ifx=2thenx=3:load"hi-res text.o",8,1
  5. 10 poke249,224:poke250,204
  6. 20 poke251,0:poke252,64
  7. 30 poke253,0:poke254,0
  8. 35 poke53281,0
  9. 50 sys51456
  10. 60 sys51459
  11. 70 f$="alfredo"
  12. 75 p$=chr$(34)+"press any key"+chr$(34):t$="s[217]50759,"+p$+",14*8,24*8"
  13. 80 poke646,peek(53281):print"[147]loadf$,8"
  14. 81 print""t$;
  15. 83 print":p[207]816,165:p[207]817,244:p[207]198,0:w[193]198,1:s[217]51459:r[213]"
  16. 84 poke631,13:poke632,13:poke198,2:end
  17.